home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 September / Chip_2003-09_cd2.bin / system / xteq / setup.exe / {app} / plugins / XQ IE Options 8.xpl < prev    next >
Encoding:
XSetup plugin  |  2002-12-06  |  4.0 KB  |  125 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="9"
  3. "COUNT"="1"
  4. "UIPATH"="Internet\Internet Explorer\Appearance"
  5. "NAME"="Appearance Options"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="2.10"
  8. "TEXT 1"="huah!"
  9. "DESCRIPTION 1"="Some appearance settings of Internet Explorer you might consider changing."
  10. "DESCRIPTION 2"="NOTE #1: Hidding the "Options" menu will also disable the "Internet" applet inside Control Panel!"
  11. "DESCRIPTION 3"="NOTE #2: Disabling the "Set as Wallpaper" option will also disable the Wallpaper change through Control Panel -> Display -> Wallpaper!"
  12. "AUTHOR"="Xteq Systems"
  13. "CONTACTURL"="http://www.xteq.com/"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"="Thanks to Sebastien Maurice for some of this settings!"
  16. "COMMENT 2"="Thanks to Ian Moran [ian@allwebsales.be] for the idea"
  17.  
  18. dim rgVals()
  19. dim rgDesc()
  20.  
  21. ReDim rgVals(9)
  22. ReDim rgDesc(9)
  23.  
  24. 'All DW
  25. rgDesc(0)="Show ""File"" -> ""Open"" command"
  26. rgVals(0)="HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoFileOpen"
  27.  
  28. rgDesc(1)="Show ""File"" -> ""New"" command"
  29. rgVals(1)="HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoFileNew"
  30.  
  31. rgDesc(2)="Show ""File"" -> ""Save""/""Save as"" command"
  32. rgVals(2)="HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserSaveAs"
  33.  
  34. rgDesc(3)="Show ""Tools"" -> ""Options"" command"
  35. rgVals(3)="HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserOptions"
  36.  
  37. rgDesc(4)="Show ""Edit"" -> ""Find"" command"
  38. rgVals(4)="HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoFindFiles"
  39.  
  40. rgDesc(5)="Enable ""Favorites"" menu"
  41. rgVals(5)="HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoFavorites"
  42.  
  43. rgDesc(6)="Enable right-click HTML menu"
  44. rgVals(6)="HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserContextMenu"
  45.  
  46. rgDesc(7)="Enable ""Theater Mode""/""Kiosk Mode"" (F11)"
  47. rgVals(7)="HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoTheaterMode"
  48.  
  49. rgDesc(8)="Enable ""Set as Wallpaper..."" menu on HTML menu"
  50. rgVals(8)="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\ActiveDesktop\NoChangingWallpaper"
  51.  
  52. rgDesc(9)="Show ""File"" -> ""Save"" -> ""Web page (complete)"" command"
  53. rgVals(9)="HKCU\Software\Policies\Microsoft\Internet Explorer\Infodelivery\Restrictions\NoBrowserSaveWebComplete"
  54.  
  55.  
  56. sSpec1t="Enable ""Favorites"" IntelliMenu (hide unsused items)"
  57. sSpec1p="HKCU\Software\Microsoft\Internet Explorer\Main\FavIntelliMenus" 'yes/no
  58.  
  59.  
  60. 'Called when the Plugin is started
  61. SUB Plugin_Initialize  
  62.  for l=lbound(rgDesc) to ubound(rgDesc)
  63.      Call ReadSetting(l+1,rgVals(l),rgDesc(l))
  64.  next 
  65.  
  66.  '-----------SPECIAL------------------------
  67.  Call SetUIElement(ubound(rgDesc)+2,sSpec1t)
  68.  s=RegReadValue(sSpec1p)
  69.  if ucase(s)="YES" then Call SetUIElementEx(ubound(rgDesc)+2,true)
  70. END SUB
  71.  
  72. 'Called when the Plugin should validate the Data the user has entered
  73. SUB Plugin_CheckData(ElementIndex)
  74. END SUB
  75.  
  76. 'Called when the Plugin should apply the changes
  77. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  78.  for l=lbound(rgDesc) to ubound(rgDesc)
  79.      Call WriteSetting(l+1,rgVals(l))
  80.  next 
  81.  
  82.  
  83.  '-----------SPECIAL------------------------
  84.  if GetUIElementEx(ubound(rgDesc)+2)=true then
  85.     Call RegWriteValue(sSpec1p,"yes",1)
  86.  else
  87.     Call RegWriteValue(sSpec1p,"no",1)
  88.  end if
  89. END SUB
  90.  
  91.  
  92. 'Called when the Plugin is about to be removed from memory
  93. SUB Plugin_Terminate
  94. END SUB
  95.  
  96.  
  97.  
  98. Sub WriteSetting(ITM,VAL)
  99.  b=GetUIElementEx(ITM)
  100.  if b=false then
  101.     Call RegWriteValue(VAL,1,2)
  102.     Call Restart()
  103.  else
  104.     If RegValueExists(VAL) then
  105.        Call RegDeleteValue(VAL)
  106.        Call Restart()
  107.     end if
  108.  end if
  109. end sub
  110.  
  111. 'ITM = Number, VAL = RegVal Path, TXT = Text for UI
  112. Sub ReadSetting(ITM,VAL,TXT)
  113.  Call SetUIElement(ITM,TXT)
  114.  
  115.  i=RegReadValue(VAL)
  116.  if IsEmpty(i) then
  117.     Call SetUIElementEx(ITM,true)
  118.  else
  119.     if i<>1 then     
  120.        Call SetUIElementEx(ITM,true)
  121.     end if
  122.  end if
  123. end sub
  124.  
  125.